home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / psion / dial.opl < prev    next >
Text File  |  1995-03-31  |  2KB  |  68 lines
  1. /* 
  2.  * Example of dialing the Series 3 from OPL 
  3.  * 
  4.  * This code should be translated using HHTRAN from the S3 disk.  If this code 
  5.  * must be translated on the S3, the following changes must be made:  C style 
  6.  * comments should be change to REMs, #defines should be substituted manually 
  7.  * into the rest of the code. 
  8.  */ 
  9.  
  10.  
  11. #define CHKERR if err% : raise err% : endif 
  12. #define E_FDIAL 10 
  13.  
  14.  
  15.  
  16. PROC test: 
  17.  
  18.    print "Dialing..."; 
  19.  
  20.    dial:( "0123456789,ABCDEF,*#", 4, 4, 16 ) 
  21.  
  22.    print "done." 
  23.    get 
  24.  
  25. ENDP 
  26.  
  27.  
  28. /* 
  29.  * ============================================================================ 
  30.  * Routine:  dial 
  31.  * Purpose:  Emit DTMF tones from the speaker on the S3. 
  32.  * 
  33.  *  Author:  Russ Beinder 
  34.  * Created:  92.12.16 
  35.  * 
  36.  * Asumptions:  dial$ with not be longer than 254 characters 
  37.  *              tonelen% and delay% will not be greater than 255 
  38.  *              no explicit error checking is performed 
  39.  * 
  40.  *   Parms:  dial$ - string of valid DTMF characters 
  41.  *           tonelen% - length of each tone in 1/32 sec 
  42.  *           delay% - inter-tone delay in 1/32 sec 
  43.  *           pause% - length of a pause in 1/32 sec 
  44.  * Returns:  none 
  45.  * ============================================================================ 
  46.  */ 
  47. PROC dial:( dial$, tonelen%, delay%, pause% ) 
  48.  
  49.    local h%          /* File handle */ 
  50.    local err%        /* Error return code */ 
  51.    local dial%(2)    /* E_DIAL structure */ 
  52.    local ldial$(255) /* local copy of dial string */ 
  53.  
  54.  
  55.    ldial$ = dial$ + chr$(0) 
  56.  
  57.  
  58.    dial%(1) = tonelen% * 256 + delay% 
  59.    dial%(2) = pause% 
  60.  
  61.    err% = IOOPEN( h%, "SND:", 0 ) : CHKERR 
  62.  
  63.    err% = IOW( h%, E_FDIAL, #(addr( ldial$ ) + 1), dial%() ) : CHKERR 
  64.  
  65.    err% = IOCLOSE( h% ) : CHKERR 
  66.  
  67. ENDP 
  68.